home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / mxu_v152.zip / UP_DOOR.PAS < prev    next >
Pascal/Delphi Source File  |  1997-06-28  |  2KB  |  67 lines

  1. {
  2.  ▀▀▀▀▀▀▀▀  ▀▀▀▀▀▀    ▀▀   ▀▀
  3.    ▀▀     ▀▀   ▀▀   ▀▀  ▀▀
  4.   ▀▀     ▀▀   ▀▀▀  ▀▀▀▀▀  The DoorKit!
  5.  ▀▀     ▀▀   ▀▀   ▀▀  ▀▀
  6. ▀▀     ▀▀▀▀▀▀    ▀▀    ▀▀
  7. The BBS Door Development Kit By The People - For The People!
  8.  
  9.  
  10.    Feel free to modify or optimize this code at will. All I ask is that if
  11.    find a better way to do things (and you will), please send me a copy of
  12.    your modifications. Thanks in advance!....Larry L. Athey....
  13.  
  14. ───────────────────────────────────────────────────────────────────────────────
  15.  
  16. NOTE: This door requires Async Professional for DOS before you can
  17.       compile it.  The MAX_UPD.PAS unit can be easily modified for
  18.       use with any other protocol library or any external protocol
  19.       driver such as PDrive, DSZ, GSZ, CEXY, Etc.}
  20.  
  21. {$A+,B-,D+,E+,F+,G+,I-,L+,N-,O+,P-,Q-,R-,S-,T-,V+,X+}
  22. PROGRAM UP_DOOR;
  23.  
  24. USES GENOVR,CRT,TDK_VARS,DOORKIT1,DOORKIT2,MAX_UPD;
  25.  
  26. {$O BS}         {Async Professional Units}
  27. {$O FASTW1}
  28. {$O __TEXT}
  29. {$O _PROTO}
  30. {$O APCOM}
  31. {$O APPORT}
  32. {$O APFOSSIL}
  33. {$O APDIGI14}
  34. {$O APABSPCL}
  35. {$O APXMODEM}
  36. {$O APYMODEM}
  37. {$O APZMODEM}
  38.  
  39. {$O MAXSPOOL}
  40.  
  41. BEGIN
  42.   ProgramName := 'MAXupdate v1.51';
  43.   ProgramDesc := 'MAXterm Resource Update Door';
  44.   LogPath     := '';
  45.   LogFile     := '';
  46.   UseLog      := TRUE;
  47.   UseTTY      := TRUE;
  48.   UseAd       := FALSE;
  49.   UseSpool    := FALSE;
  50.   MiscDesc    := '{Path/File Name Of One RESOURCE.LST}';
  51.   ReadCfg;
  52.   IF DT <> 0 THEN BEGIN
  53.     GOTOXY(1,1);
  54.     WRITE('Waiting ' + IntToStr(DT) + ' seconds for a possible slowpoke remote machine to catch up...');
  55.     Wait(DT);
  56.   END;
  57.   InitDoorkit;
  58.   CASE Graphics OF
  59.     TTY    : ErrLevel := 100;
  60.     ANSI   : ErrLevel := 101;
  61.     AVATAR : ErrLevel := 102;
  62.     RIP    : ErrLevel := 103;
  63.     MAX    : ErrLevel := 104;
  64.   END;
  65.   MaxUpdate;
  66. END.
  67.